Leonardo the Inventor/Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso/LEOWINMV/SHARED.DIR/03123_Script_Cursor Utilities

Text File | 1996-04-01 | 764b | 33 lines

on storeAndKillCursors listOfSprites
  set theList = []
  repeat with S in listOfSprites
    add theList, the cursor of sprite S
    set the cursor of sprite S = 0
  end repeat
  updatestage
  return theList
end

on restoreCursors listOfSprites, listOfCursors
  if voidP(listOfSprites) or voidP(listOfCursors) then exit

  set index = 1
  repeat with S in listOfSprites
    set the cursor of sprite S = getAt (listOfCursors, index)
    set index = index + 1
  end repeat
end

on clearSSVRCursors
  global spriteList

  if voidP(spriteList) or spriteList = [] then exit

  repeat with S in spriteList
    set the cursor of sprite S = -1
    set the cursor of sprite S = 0
  end repeat
  updatestage

  set spriteList = []
end